home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 476-500 / disk_499 / diglib / diglib.lzh / source / gsinpt.for < prev    next >
Text File  |  1991-05-01  |  530b  |  23 lines
  1.         SUBROUTINE GSINPT(X,Y,LFLAG,IERR)
  2.         IMPLICIT NONE
  3.         REAL*4 X,Y
  4.         INTEGER IERR,IBUTN
  5.     INTEGER*1 IAND
  6.         LOGICAL LFLAG
  7. C
  8. C       DO A GENERIC GRAPHICS INPUT
  9. C
  10.         INTEGER*1 CHAR, SPACE
  11.         DATA SPACE /' '/
  12. C
  13.         CALL GSCRSR(X,Y,IBUTN,IERR)
  14.         IF (IERR .NE. 0) GO TO 100
  15.                 LFLAG = (IAND(IBUTN,1) .EQ. 1)
  16.                 RETURN
  17. 100     CONTINUE
  18.         CALL GSGIN(X,Y,CHAR,IERR)
  19.         IF (IERR .NE. 0) RETURN
  20.         LFLAG = (CHAR .EQ. SPACE)
  21.         RETURN
  22.         END
  23.